home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {068D1D9F-6A5A-4649-81FE-3DCA318C6540}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  7KB  |  120 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Control clsid="{1C94A05E-ED29-4760-B9BC-134593EEE7C3}"><_cx vt="19">5398</_cx><_cy vt="19">5900</_cy><BackColor vt="19">14342874</BackColor><ForeColor vt="19">0</ForeColor><Enabled vt="11">-1</Enabled><BorderVisible vt="11">-1</BorderVisible><SelBackColor vt="19">10592673</SelBackColor><SelForeColor vt="19">6579300</SelForeColor><DefaultItem vt="3">-1</DefaultItem><DropListHeight vt="3">400</DropListHeight></Control><Script><![CDATA['Called when the script is executed
  5. Sub Object_OnScriptEnter
  6.     Control.BackColor = RGB(0,70,120)
  7.     Control.ForeColor = RGB(103,190,255)
  8.     Control.SelectionBackColor = RGB(0,70,120)
  9.     Control.SelectionForeColor = RGB(255,255,255)
  10. End Sub
  11.  
  12. Sub Control_OnSelect(item,string)
  13.     If DesktopX.ScriptObject("lstMediaType").Control.Text = "Media playlist" Then
  14.         If Control.ListIndex < 1 Then
  15.             DesktopX.ScriptObject("wmp").Control.Controls.Stop()
  16.         Else
  17.             ' Clear the list of tracks and the playlist
  18.         DesktopX.ScriptObject("lst_tracks").Control.ResetList
  19.             DesktopX.ScriptObject("wmp").Control.currentPlaylist = DesktopX.ScriptObject("wmp").Control.playlistCollection.getByName(Control.Text).item(0)
  20.             ' Loop through the playlist and items to the tracklist
  21.         For x = 0 To DesktopX.ScriptObject("wmp").Control.currentPlaylist.Count - 1
  22.             DesktopX.ScriptObject("lst_tracks").Control.AddItem DesktopX.ScriptObject("wmp").Control.currentPlaylist.Item(x).getItemInfo("Title")
  23.         Next
  24.             DesktopX.ScriptObject("lst_tracks").Object.Visible = True
  25.             If DesktopX.ScriptObject("lst_tracks").Control.ItemCount > 0 Then
  26.             DesktopX.ScriptObject("lst_tracks").Control.ListIndex = 0
  27.                 DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"
  28.                 DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"
  29.                 If DesktopX.ScriptObject("lst_tracks").Control.ItemCount > 1 Then
  30.                     DesktopX.ScriptObject("wmp_playlist_down").Object.state = "normal"
  31.                     DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "normal"
  32.                 Else
  33.                     DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"
  34.                     DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"
  35.                 End If
  36.             Else
  37.                 DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"
  38.                 DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"
  39.                 DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"
  40.                 DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"
  41.             End If
  42.             Set x = Nothing
  43.         End If
  44.  
  45.     ElseIf DesktopX.ScriptObject("lstMediaType").Control.Text = "Single album" Then
  46.         If Control.ListIndex < 1 Then
  47.             DesktopX.ScriptObject("wmp").Control.Controls.Stop()        
  48.         Else
  49.             ' Clear the list of tracks and the playlist
  50.         DesktopX.ScriptObject("lst_tracks").Control.ResetList
  51.         myalbum = Right(Control.Text, Len(Control.Text) - InStr(Control.Text, "-")-1)
  52.             DesktopX.ScriptObject("wmp").Control.currentPlaylist = DesktopX.ScriptObject("wmp").Control.mediaCollection.getByAlbum(myalbum)
  53.             ' Loop through the playlist and items to the tracklist
  54.         For x = 0 To DesktopX.ScriptObject("wmp").Control.currentPlaylist.Count - 1
  55.             DesktopX.ScriptObject("lst_tracks").Control.AddItem DesktopX.ScriptObject("wmp").Control.currentPlaylist.Item(x).getItemInfo("Title")
  56.         Next
  57.             DesktopX.ScriptObject("lst_tracks").Object.Visible = True
  58.             If DesktopX.ScriptObject("lst_tracks").Control.ItemCount > 0 Then
  59.             DesktopX.ScriptObject("lst_tracks").Control.ListIndex = 0
  60.                 DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"
  61.                 DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"
  62.                 DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"
  63.                 DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"
  64.             Else
  65.                 DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"
  66.                 DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"
  67.                 DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"
  68.                 DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"
  69.             End If
  70.             Set x = Nothing
  71.         End If
  72.  
  73.     ElseIf DesktopX.ScriptObject("lstMediaType").Control.Text = "CD Audio" Then
  74.         If Control.ListIndex > 0 Then
  75.             x = vbYes
  76.             If Right(Control.Text, Len(Control.Text) - 3) <> "Audio CD" Then
  77.                 x = Msgbox("The player cannot confirm that this is an audio CD." & vbNewLine & vbNewline & "Are you sure you want to keep playing this as an audio CD?", vbQuestion + vbYesNo, "Media query ...")
  78.             End If        
  79.             If x = vbYes Then
  80.                 DesktopX.ScriptObject("lst_tracks").Control.ResetList
  81.                 DesktopX.ScriptObject("wmp").Control.currentPlaylist = DesktopX.ScriptObject("wmp").Control.cdromCollection.getByDriveSpecifier(Left(Control.Text,2)).Playlist
  82.             For x = 0 To DesktopX.ScriptObject("wmp").Control.currentPlaylist.Count - 1
  83.                 DesktopX.ScriptObject("lst_tracks").Control.AddItem DesktopX.ScriptObject("wmp").Control.currentPlaylist.Item(x).Name
  84.             Next
  85.               DesktopX.ScriptObject("lst_tracks").Control.ListIndex = 0
  86.                 DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"
  87.                 DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"
  88.                 DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"
  89.                 DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"
  90.                 DesktopX.ScriptObject("lst_tracks").Object.Visible = True    
  91.                 DesktopX.ScriptObject("wmp").Control.Controls.Play()
  92.             Else
  93.                 Control.ListIndex = 0
  94.             End If
  95.         End If
  96.  
  97.     ElseIf DesktopX.ScriptObject("lstMediaType").Control.Text = "Radio" Then
  98.         DesktopX.ScriptObject("lst_tracks").Object.Visible = False
  99.         If Control.ListIndex > 0 Then
  100.             Set radiostation = DesktopX.ScriptObject("wmp").Control.mediaCollection.getByAttribute("MediaType", "radio").Item(Control.ListIndex - 1)
  101.             DesktopX.ScriptObject("wmp").Control.URL = radiostation.getItemInfo("SourceURL")
  102.             Set radiostation = Nothing
  103.         End If
  104.     End If
  105. End Sub
  106.  
  107. Sub Control_KeyPress(KeyAscii)
  108.         Control.List(0).Text = "Select a playlist ..."
  109. End Sub
  110.  
  111. Function PlaylistRefresh
  112.     Control.ResetList
  113.     Control.AddItem "Select a playlist ..."
  114.     For x = 0 To DesktopX.ScriptObject("wmp").Control.playlistCollection.getAll.Count - 1
  115.       Control.AddItem DesktopX.ScriptObject("wmp").Control.playlistCollection.getAll.Item(x).Name
  116.     Next
  117.     Control.ListIndex = 0
  118.     Set x = Nothing
  119. End Function]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>263</EditorLeft><EditorTop>228</EditorTop><EditorRight>1072</EditorRight><EditorBottom>876</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{1C94A05E-ED29-4760-B9BC-134593EEE7C3}</ControlCLSID><ControlObjWidth>198</ControlObjWidth><ControlObjHeight>21</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  120.